home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / pour.dxr / 00014_Minute hand vertex style.ls < prev    next >
Encoding:
Text File  |  2000-03-23  |  941 b   |  36 lines
  1. property pSpr, pCenter, pRadius
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pCenter = pSpr.member.vertexList[1][#vertex]
  6.   pCenter = sprite(me.spriteNum - 2).loc
  7.   temp = pSpr.member.vertexList[2][#vertex]
  8.   temp2 = temp - pCenter
  9.   pRadius = 20
  10.   pSpr.member.originMode = #point
  11.   pSpr.member.strokeWidth = 4
  12. end
  13.  
  14. on mUpdate me, percent
  15.   if percent <= 0.25 then
  16.     phase = 0
  17.   else
  18.     if (percent > 0.25) and (percent <= 0.5) then
  19.       phase = PI / 2
  20.     else
  21.       if (percent > 0.5) and (percent <= 0.75) then
  22.         phase = PI
  23.       else
  24.         if (percent > 0.75) and (percent <= 1.0) then
  25.           phase = 3 * PI / 2
  26.         end if
  27.       end if
  28.     end if
  29.   end if
  30.   theta = percent * 6.28319000000000027
  31.   newVertex = point(pRadius * sin(theta + phase), pRadius * cos(theta + phase))
  32.   pSpr.member.vertexList = [[#vertex: point(0, 0)], [#vertex: newVertex]]
  33.   pSpr.member.regPoint = point(0, 0)
  34.   pSpr.loc = pCenter
  35. end
  36.